home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 023 - Big U Macroworks.dsk / RUN.COUNTER.bas < prev    next >
BASIC Source File  |  2019-02-16  |  1KB  |  9 lines
  1. 0  GOTO 1::"26-AUG-85/0000": REM  DON'T^ADD^ANY^LINE^NUMBERED^SMALLER^THAN^7.
  2. 1 P$ = "RUN.COUNTER": REM  YOUR^PROGRAM^NAME^HERE
  3. 2 L =  PEEK(103) + PEEK(104) *256 +9: FOR I = L TO L +8:DAY$ = DAY$ + CHR$( PEEK(I)): NEXT :NMBR = 1000 *( PEEK(L +10) -48) +100 *( PEEK(L +11) -48) +10 *( PEEK(L +12) -48) + PEEK(L +13) -48:NMBR = NMBR +1
  4. 3  HOME : VTAB 18: PRINT P$: FOR I = 1 TO  LEN(P$): PRINT "-";: NEXT : PRINT 
  5. 4  PRINT "RUN NUMBER:  ";NMBR: POKE L +13,48 +NM - INT(NM/10) *10: POKE L +12,48 + INT((NM - INT(NM/100) *100)/10): POKE L +11,48 + INT((NM - INT(NM/1000) *1000)/100): POKE L +10,48 + INT(NM/1000)
  6. 5  PRINT "LAST RUN ON: ";DAY$;".": PRINT : PRINT "TODAY'S DATE:__-___-__";: HTAB 13: INPUT ":";NUDAY$: ON  LEN(NUDAY$) < >9 GOTO 3: FOR I = 1 TO 9:A$(I) =  MID$ (NUDAY$,I,1): NEXT :DA =  VAL(A$(1)) *10 + VAL(A$(2)): IF (DA <1  OR DA >31)  OR A$(3) < >"-"  OR A$(7) < >"-"  THEN 3
  7. 6  IF NU$ < >""  THEN  FOR I = 1 TO 8: POKE L +I -1, ASC(A$(I)): NEXT 
  8. 7  PRINT : PRINT "(STAND BY...)": PRINT  CHR$(4);"UNLOCK ";P$: PRINT  CHR$(4);"SAVE ";P$: PRINT  CHR$(4);"LOCK ";P$
  9. 8  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>RUN.COUNTER WAS ADAPTED FROM<CTRL-M>BERT KERSEY'S UTILITY CITY DISK